home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 801_900 / DISK0859 / DISK0859.ZIP / MAC / DEMOMAC2.DAT < prev    next >
Text File  |  1987-12-22  |  462b  |  17 lines
  1. DEMOMAC2 BEGIN
  2.          WTO   'DEMOMAC2 COPY DEMOMAC2.DAT TO DEMOMAC2.TST'
  3.          OPEN SYSUT1
  4.          OPEN SYSUT2
  5. LOOP     GET  SYSUT1,RECORD
  6.          PUT  SYSUT2,RECORD
  7.          B    LOOP
  8. EOJ      CLOSE SYSUT1
  9.          CLOSE SYSUT2
  10.          RETURN
  11. RECORD   DS   XL256
  12. SYSUT1   DCB  LRECL=1,RECFM=T,MACRF=G,EODAD=EOJ,
  13.               DDNAME='DEMOMAC2.DAT'
  14. SYSUT2   DCB  LRECL=1,RECFM=T,MACRF=P,
  15.               DDNAME='DEMOMAC2.TST'
  16.          END
  17.